home *** CD-ROM | disk | FTP | other *** search
/ The PC-SIG Library 10 / The PC-Sig Library - Shareware for the IBM PC and Compatibles (PC-SIG)(Tenth Edition Disks 1-2804)(1991).iso / PC_SIGCD / 10 / 9 / DISK1095.ZIP / PURCHUPD.PRG < prev    next >
Text File  |  1980-01-01  |  786b  |  33 lines
  1. *
  2. * PURCHUPD
  3. * MOVE CURRENT YEAR PURCHASE TOTAL TO LAST YEAR, AND CLEAR THIS YEAR'S AMOUNT
  4. SET HEADING OFF
  5. SET SAFETY OFF
  6. SET STATUS OFF
  7. CLEAR
  8. CLEAR ALL
  9. SET TALK OFF
  10. SET BELL OFF
  11. @ 1,22 SAY "SMITH'S BIKEWORKS INFORMATION SYSTEM"
  12. @ 3,16 SAY ">> Customer Information System Purchase Update <<"
  13. @ 5,29 SAY "Today's Date: "
  14. ?? DATE()
  15. STORE " " TO DUMMY
  16. @ 15,1 SAY ;
  17. "THIS PROGRAM MOVES THIS YEAR'S PURCHASE AMOUNT TO PREVIOUS YEAR VALUE, THEN"
  18. @ 16,1 SAY ;
  19. "CLEARS AMOUNT. 'M' HERE RETURNS TO MENU. ANY OTHER KEY STARTS PROGRAM =>";
  20. GET DUMMY
  21. READ
  22. STORE UPPER(DUMMY) TO DUMMY
  23. IF DUMMY="M"
  24.    RETURN
  25. ENDIF
  26. * OPEN CUSTOMER FILE
  27. USE CUSTOMER
  28. GO TOP
  29. * MOVE THIS YEAR'S VALUE THEN SET TO ZERO
  30. REPLACE ALL LYRS_VALUE WITH YRS_VALUE, YRS_VALUE WITH 0
  31. CLEAR
  32. RETURN
  33.